home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / UpdateWirenet.lzx / Updates / StopNet < prev    next >
AmigaDOS Script File  |  1996-06-11  |  294b  |  21 lines
  1. .KEY FLUSH/S
  2. .BRA {
  3. .KET }
  4.  
  5. Lab KillTCP
  6.  
  7. If `rx "Say Show(ports, AMITCP)"` EQ 1
  8.     rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  9.     Wait 2
  10.     EndIf
  11.  
  12. If `rx "Say Show(ports, AMITCP)"` EQ 1
  13.     Skip KillTCP BACK
  14.     EndIf
  15.  
  16. If {FLUSH}
  17.     Avail >NIL: FLUSH
  18.     EndIf
  19.  
  20. SetEnv NetState NoNet
  21.